home *** CD-ROM | disk | FTP | other *** search
/ The Games Machine 103 / XENIATGM103.iso / Shareware / GoLive 5.0 / MM9.Cab / F1406_project_list.asp.9B3B646D_CB56_4EAE_BAB7_3E7E8E41A649 < prev    next >
Text File  |  2000-08-17  |  4KB  |  70 lines
  1. <!-- #INCLUDE VIRTUAL="/golive/config/include/utils.runtime5.asp" -->
  2. <!-- #INCLUDE VIRTUAL="/golive/config/include/ado.runtime5.asp" -->
  3. <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
  4. <html>
  5.  
  6.     <head>
  7.         <meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
  8.         <title>Edit Feature</title>
  9.         <meta name="generator" content="Adobe GoLive 5">
  10.         <meta name="site-config-URL" content="http://localhost/golive/config/">
  11.         <%'Dynamic Link
  12.            set Project_InformationRecordSet = CreateObject("ADODB.RecordSet")
  13.            Project_InformationRecordSet.Open "select * from Projects where ProjectName like '%" & Request.QueryString("keyword") & "%'", ConnectString("Magazine")
  14.            set Project_Information = WrapRecordSet(Project_InformationRecordSet, "ID")
  15.            Project_Information.Move GetRecordIndex() - 1
  16.            Project_Information.BlockSize = 5
  17.         %>
  18.     </head>
  19.     <body bgcolor="white">
  20.  
  21.         <form>Search Project: <input type="text" name="keyword" value='<%=Request.QueryString("keyword")%>'>
  22.             <input type="submit">
  23.         </form>
  24.         <p>
  25.         <table border="0" cellpadding="4" cellspacing="4">
  26.             <tr>
  27.                 <td bgcolor="#666699"><font color="white" face="arial,helvetica,sans-serif"><b>ID</b></font></td>
  28.                 <td bgcolor="#666699"><font color="white" face="arial,helvetica,sans-serif"><b>Project</b></font></td>
  29.                 <td bgcolor="#666699"><font color="white" face="arial,helvetica,sans-serif"><b>Status</b></font></td>
  30.                 <td bgcolor="#666699"><font color="white" face="arial,helvetica,sans-serif"><b>Assigned</b></font></td>
  31.                 <td bgcolor="#666699"><font color="white" face="arial,helvetica,sans-serif"><b>Due Date</b></font></td>
  32.                 <td bgcolor="#666699"><font color="white" face="arial,helvetica,sans-serif"><b>Edit</b></font></td>
  33.             </tr>
  34.             <% Project_Information.MoveFirst %>
  35.                 <% Project_Information.Move GetRecordIndex() - 1 %>
  36.                 <% while not Project_Information.EOF and Project_Information.AbsolutePosition < GetRecordIndex() + Project_Information.BlockSize %>
  37.                 <tr>
  38.                 <td bgcolor="#ccccff"><%=Project_Information.Value("ID")%></td>
  39.                 <td bgcolor="#ccccff"><%=Project_Information.Value("ProjectName")%></td>
  40.                 <td bgcolor="#ccccff"><%=Project_Information.Value("ProjectStatus")%></td>
  41.                 <td bgcolor="#ccccff"><%=Project_Information.Value("ProjectAuthor")%></td>
  42.                 <td bgcolor="#ccccff"><%=Project_Information.Value("DueDate")%></td>
  43.                 <td bgcolor="#ccccff"><a href='project.asp?RECORD_KEY=<%=Project_Information.Key()%>'>edit</a></td>
  44.             </tr>
  45.                 <% Project_Information.MoveNext %>
  46.                 <% wend %>
  47.         </table>
  48.         <p>
  49.         | <a <%=LinkToFirstRecord(Project_Information)%>>FIRST</a> 
  50.         | <a <%=LinkToPreviousRecord(Project_Information)%>><- PREVIOUS</a> 
  51.         | <a <%=LinkToNextRecord(Project_Information)%>>NEXT -></a> 
  52.         | <a <%=LinkToLastRecord(Project_Information)%>>LAST</a> 
  53.         | <%=Project_Information.AbsolutePosition - 1 %> of <%=Project_Information.RecordCount%></p>
  54.         <p>
  55.         
  56.     </body>
  57.  
  58. </html>
  59. <% if 0 then %>
  60. <!-- Mock Content
  61.    Project_Information:<TABLE> {}
  62.    Project_Information:ID {123}
  63.    Project_Information:ProjectName {Luntac 600}
  64.    Project_Information:ProjectStatus {78% done}
  65.    Project_Information:ProjectAuthor {Hippopotamus}
  66.    Project_Information:DueDate {Before Summer}
  67.    Project_Information:$recordCount {15}
  68. -->
  69. <% end if %>
  70.